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BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED « 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY © 
ie TRANSFERRED. * 
& 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: CORPORAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1 'ee 
' 
: : FACILITY: FIIACP Structure Level 2 
5 ABSTRACT: 
i This routine creates a new file ID 7 allocating a file number from the 
: index file bitmap. It returns an empty file header, verified for use. 
49 i i ENVIRONMENT : 
4 § i STARLET operating system, including privileged system services 
re Z and internal exec routines. 
45 5 1 in 
d ae 
$8 ; AUTHOR: Andrew C. Goldstein, CREATION DATE: 28-Mar-1977 13:49 
; 30 9 1 { MODIFIED BY: 
001 !CdS0018 g i v04-001 ¢DS0018 Christian D. Saether 15-Nov-1984 
1008 isperete z : Expand test for clusterness to look at clu$gl_club. 
; 56 5 1 i v03-022 ¢Ds0017 Christian D. Saether 20-Aug-1984 
: : § : Force fcb for indexf to be stale always before 
: 4 : attempting to map vbns. 
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-00 F11X.BUGSRC IcREND R.832;1 (1) 
; 5 2 ff. $ 
; § 1{ v03-021 CDS0016 Christian 0. Segther 13-Aug-1984 : 
: i bet : Back off an extra dot in ACG04 : 
: $59 ¢ 1] i V03-020 ACG04638 Andrew ¢. Goldstein, = T-Aug-1984, 11:55 ; 
; 60 65 1! Add cache interlock logic on FID cache; use central 3 
: 6) ¢ : } dequeue routine. : 
; 8 066 i vO3-019 LMPO278 L. Mark Pilant 12-Jul-1984 10:58 F 
> 66 906 ; i Fix a bug that caused the EXBYLM error if it was necessary : 
; 65 3 : } to turn the index file window. : 
: e3 01: v03-018 cosoo1s Christian D. Saether 17-Apr-1984 ; 
; @& ‘te Have MAP_IDX check to see whether curr_lckindx is 3 
; 4 po76 ! for the index file to avoid releasing Tt if so. : 
a. 074 1: v03-017 CDS0014 Christian D. Saether W1-Apr=1984 : 
ae. 075 1! Release allocation lock prior fo eeipoba din My 3 
Re : 0076 1! new primary header. This eliminates pgtent al ; 
:; 674 0077 1! deadlocks when the new primary header is a valid ; 
3 Le ait : header that someone else is messing with. ; 
a: oe g0 1: V03-016 CDS0013 Christian D. Saether 1-Apr-1984 ; 
; A: sie : ACG0409 forgot to rewrite indexf bitmap buffer. No joke. : 
: 80 0088 1! V03-015 ACG0409 Andrew C. Goldstein, —_ 21-Mar=1984_ 19:40 ; 
3; 8 0084 1! pedes ign file ID cacheing algorithm so that file ID ; 
—- = 0085 1! Berend the index file EOF are not cached. Eliminate” 3 
;. §& Ross 1! BASH_HEADERS routine; peneces code cleanup to rem F 
; Be 0088 ' kernel calls. CHECK_HEADER2 no longer writes USER. STATUS. : 
: 86 89 1: V03-014 ACG0404 Andrew C. Goldstein, 15-Mar-1984 17:37 : 
3 44 BRa0 : H Correct releasing of file sync lock when retrying for a header : 
: 89 0098 1: v03-013 cpsoo12 Christian D. Saether 23-Feb-1984 : 
; oo ? : Eliminate references to FLUSH LOCK “BASIS " : 
; 3 5 1i v03-012 CDS0011 Christian D. Saether 27-Dec-1983 ; 
3 4, > : : Use BIND_COMMON macro. : 
: 95 8 1: v03-011 ¢DS0010 Christian D. Saether 12-Dec-1983 ; 
; 38 044 : } Start of XQP code is at symbol INITXQP now. : 
: 98 101 1! v03-010 cDS0009 Christian D. Saether 5-0c t-1983 : 
§ 190 : ; ! Fix bug restoring privileges to the PCB. : 
> 101 104 1 | v03-009 cps0008 Christian D. Saether 3-0c t-1983 ; 
3 4 105 1! spve/restere CURR_LCKINDX where necessary rather 3 
: : : ' : han PRIM_LCKINDX. 
: 105 108 1: v03-008 CDS0007 Christian D. Saether 13-Sep-1983 
: 196 1% : Modify interface to allocation serialization. 
: 108 171 1/ v03-007 CDS Christian D. Saether 12-May-1983 
; +4 ii ' Serialize header sseekiom. 
: 119 14 1: v03-006 CDS0005 Christian D. Saether 1-Mar-1983 
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voseoo1 ergern9bG Veredion §— YeNTK eOtLRESeReMtACa soe oF 4) 
3 1 13 } Need BYPASS privilege also. 
: 114 113 ii v03-005 CDS0004 Christian D. Saether coor ebo1965 
3; «6115 18 3! Call MAP_VBN before checking FILESIZE so that 
; 118 1} ! beeder is checked before deciding to extend 
: 118 121 1/3 Also “aoke READ +% HEADER insensitive to headers that 
; 11 1 ¢ 1! p more than fhe FCB knows about. 
; 120 1 1! Totally unt " guring a what to do with EFBLK 
3 ; 1 ; : : } for the index f 
x ‘ 1 § 1 i v03-004 CDS0003 Christian D. Saether 13-Jan-1983 
3 : $ ; } } Separately save and restore PHD privs. 
: 4 $ 1 3 1/ v03-003 CdS0002 Christian D. Saether 28-Dec-1982 
3 : HM 3) , : Give priv around Q10. 
: 129 61 ; 1 v03-002 ¢pS0001 C See 3-Aug-1982 
; : . 3 : Change Q10W to Q10 ofth “completion AST. 
3 ; 0135 1: v03-001 ACG0273 Andrew C. Goldstein, | 23-Mar-1982 10:50 
3; 1 1 1! Use random file sequence number if old header is junk, 
3 : ; , : use alternate index file header if primary is suspect 
. ¥ 0139 1: ¥02-007 ACG0229 Andrew ©. Goldstein, 23-Dec-1981 21:53 
; ; bia} : Count file ID cache hits and misses 
: 139 14 1 V02=006 ACG0167 Andrew C. Goldstein, 16-Apr-1980 19:25 
; 140 Bie 1! Previous revision history moved to F11B.REV 
- 149 os a 
a 0146 1 
3 (166 b149 1 LIBRARY ‘SYSSLIBRARY: b48;t ei 32°; 
3 146 9138 : REQUIRE ‘SRCS:FCPDEF.B 
: 16 1140 1 
: 168 1141 1 FORWARD ROUTINE 
; (149 Bp 1 CREATE _MEADER : L_NORM ' create file ID and header 
: 150 1143 «1 FILL_FID_CACHE : t “NORA *NOVALUE, ‘ load file ID cache from bitmap 
3; «6151 1144 1 INIT_FID-CACHE : L_NORM NOVALUE i eiteslise file ID cache lock 
3 13¢ 1145 1 READ NEW HEADER : L_NORM, f read new file header block 
: 15 1146 1 WANDCER, ' local condition handler 
: 1546 1147 1 READ_IDX_HEADER : L_NORM, ! read index file header 
> 155 1148 #1 mAP_TDX : LINORM; ' map vbn for index file. 
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v04-001 Sree 1 13323:38 YF TIX. BUGSREICREMDR-BS241 — (2) 

138 198 GLOBAL ROUTINE CREATE_HEADER (FILE_ID) : L_NORM = 
159 151 lee 

160 1 § ‘ 

189 : 2 FUNCTIONAL DESCRIPTION: 
16 155 i This routine creates a new file ID by searching the volume's inde 
164 138 : file bitmap for the first free file huaber. ite else checks that 4s 
165 13 : header for the file number is present in the index file. It reads 
166 8 ‘ the old header and establishes the file sequence number for the 
16 2B } new one. 

63 61 i CALLING SEQUENCE: 

4 6¢ CREATE_MEADER (ARG1) 

2 64 ; INPUT PARAMETERS: 

74 66 i = 

75 6 ' JMPLICIT INPUTS: 

6 o8 CURRENT_VCB: address of volume's VCB 

78 70 1 ! OUTPUT PARAMETERS: 

he 4 ARG]: address to store file ID of created header 

81 ig IMPLICIT OUTPUTS: 

og 74 NEW_FID: file number of header created 

Bz 2 NEW_FID_RVN: RVN of above 

85 


address of buffer containing new header 


SIDE EFFECTS: 
VCB and index file bitmap altered, header block read 


SSESE 


sooo 
wn— 


FILE_ID : REF BBLOCK; ! new file ID of header 


GET_FILE_NUM; 


acquire a file number 


CACHE FLUSHED, ! flag indicating cluster caches flushed 
NEW LOK INDX : INITIAL (9), 


DE DIRDININ ts st kk kd dt 


temp storage for current lock index 
vcB : REF BBLOCK, local copy of VCB address 
F ID_CACHE : REF BBLOCK, pointer to file iD cache | 

! relative block number in bitma 
BUFFER : REF BITVECTOR, ! address of index file bitmap butter 
ADDRESS : REF BITVECTOR, ! address of byte in buffer 
CURRENT _EOF, ' current EOF o 
COUNT, ' number of index blocks to bash 
FILE NUMBER, : file number allocated 
1Dx_FCB : REF BBLOCK, ! FCB of index file 
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14 LBN, ! LBN of new file header 
15 HEADER : REF BBLOCK, ! address of header buffer 
g STATUS; ! value of CHECK_HEADER call 
218 EXTERNAL 
001 'cCDdS0018 $GL_CLUB : ADDRESSING MODE (GENERAL), 


° 


CLU 
PMSSGL_-FIDHIT : ADDRESSING-MODE (GENERAL) 

' count of file ID cache hits 
PMSSGL_FIDMISS : ADDRESSING_MODE (GENERAL ) 


3 1 

: 1 5 

: 1208 

; 1209 

3 1210 

: 219 1513 

. 

EZ ¢ 1s 5 ' count of file ID cache misses 

: 1 § EXESGQ_SYSTIME : ADDRESSING_MODE (GENERAL); 

3 4 1¢ ! system time of day 

; $$? ' 18 BIND_COMMON; 

; 22? 1 39 EXTERNAL ROUTINE f 

: 228 1221 ALLOCATION_LOCK : L_NORM NOVALUE, ! interlock allocation 

; $68 1 ¢ ALLOCATION UNLOCK : L_NORM NOVALUE, ! release allocation lock. 

; 230 12 SERIAL FIL : LNORM, ! serialize file processing 

3 2 1224 RELEASE SERIAL_LOCK”: L_NORM NOVALUE, ! release processing lock 

; $36 1225 DEQ LOCR : LNORA, ! dequeue a lock 

; 23 1226 READ_BLOCK : LINORM, ' read block from disk 

; 234 1227 $ WRITE BLOCK : LINORM, ' write block to disk 

; 235 1228 DELETE FID : LINORM ! flush file ID cache and release lock 
; 236 \s¢3 2 RELEASE _LOCKBASIS :~L_NORM, ! release buffers under specified lock 
; eo 1230 2 CACHE LOCK : L_NORM, ! acquire cache sync lock 

; 238 1231 é EXTEND INDEX : LLNORM, ! extend the index file 

; 239 1238 ERASE BLOCKS : LINORM, ! erase blocks on disk 

; 240 $3 : CHECKSUM : LINORM, ' compute file header checksum 

> 241 1234 WRITE _HEADER : L_NORM, ' write current file header 

; seg 1235 2 RESET_LBN : L_NORM, ' change backing LON of buffer 

3 24 1236 2 INVALIDATE : LINORM, ' invalidate a buffer 

3; 246 1237 2 CREATE BLOCK : L_-NORM, ! materialize a block buffer 

> 2465 1238 2 CHECK _READER2 L_NORA, : oh de | file header 

; $48 +H 2 IRTY _NORM; ! mark buffer for write-back 

; $o8 13¢¢ é Serialize further file header creation processing. 

: 250 126 3 

; $2! iste ALLOCATION_LOCK (); 

; $38 1246 5 ! The outer loop per foras retries if blocks in the index file are bad or 

; «254 1267 ! are valid file headers. A block containing a valid file header is never 
; 5 1248 : used to create a new file; it is simply left marked in use for recovery. 
3 $36 1249 : Bad header blocks are simply left marked in use in the index file bitmap; 
3 eH : 39 } they will show up in a verify but are ctherwise harmless. 

: 259 125 

: 353 1 6 VCB = .CURRENT VCB; 

3; 6(aOl 1254 2 FID CACHE = .BSLOCK C.VCBCVCBSL_CACHE], VCASL_FIDCACHE); 

; oe 1255 CACRE_FLUSHED = 0; 

3; 1 2$ WHILE 1 D 

: ¢ ! : GET_FILE_NUM: BEGIN 

; 266 1 35 : See if a file number is available in the file number cache. If not 

; 267 1260 : we scan the index file bitmap for the first free (zero) bit. This is done 
: 268 1261 ! by starting with the block recorded in the VCB and looking at each block 
: 269 1262 ! with a character scan. 
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; 270 1263 ! : 
: 271 1264 : 
3 4 69 IF gf ID_CACHECVCASW_FIDCOUNT? EQL 0 ; 
> 274 1 6 i BEGIN : 
> 275 1268 4 PMSSGL_FIDMISS = .PMSSGL_FIDMISS + 1; ; 
: 31 : $2 ? VBN = .VCBCVCB$8_IBMAPVBR); : 
; 278 1271 4 F NOT 
: 279 1 es 5 BEGIN : 
3 $81 3 2 UNTIL. .VBN GEQ .VCBCVCBS$B_IBMAPSIZE) DO : 
: 282 1275 6 BUFFER = READ BLOCK (.VBN + .VCBCVCBSL_IBMAPLBNJ. 1, INDEX TYPE); : 
: «283 He 6 IF NOT CHSFAIC (ADDRESS = CHSFIND_NOT_CH (512, .BUFFER, 255)) ’ ; 
: 284 1277 6 THEN EXITLOOP 0; f : 
. oe beet. : 
: 287 1280 § END ; 
; at 1583 2 ' Having found a bitmap block with f files in i fil 
: ' Having found a ma ock wit ree es in it, attempt t ill th $ 
: soy 1388 : ie To cache. If ia eeloaes to fill, it's because oa*re at ten taden 3 
i 392 mit : 
; $3: 1589 2 THEN FILL_FID_CACHE (.VCB, .BUFFER, .VBN) 
° e ee V Py : 
3 295 1288 4 IF gf ID_CACHELVCASW_FIDCOUNT3 Ea 6 ; 
: 297 1590 5 BEGIN ; 
; $36 1592 2 ' If the index file EOF coincides with the physi d of fil h 
; } e index e coincides with the sical end o e, t : 
: 300 1598 5 ! extend the index file. Otherwise, we just have to push the EOF. Before : 
3 So 1294 5 ! extending the index file, if we are in a cluster, ask for a cluster-wide : 
; $08 199? : flush of the file ID caches. : 
: $04 ay ide ¥en Seiacee, fear) 
: 306 1299 5 CURRENT EOF = .1DX FCBCFCBSL FFBLKI: ; 
; 307 90 3 iF _«,CURRENT_EOF GEGU .IDX_FCBCFCBSL_FILESIZE) ; 
: 309 130¢ 6 BEGIN : 
3001 !cDs0018 += 1303 6 IF .BBLOCK CCURRENT UCBCUCBS$L_DEVCHAR23, DEV$V_CLUJ : 
7002 'CDS0018 1304 6 AND .CLUSGL_CLUB NEG 0 : 
; 1-1 1305 6 AND NOT .CACHE_FLUSHED : 
; 8 1307 ° BEGIN : 
: 314 1308 7 LOCAL IDX_FILE_ID, LOCK_ID; : 
: 315 1309 7 DELETE FIB (0); : 
: 316 1310 7 RELEASE _LOCKBASIS (-1); : 
: 317 1311 7 ALLOCATION UNLOCK (); : 
; 18 i 12 , IDX FILE I = FIDSC_INDEXF OR .CURRENT_VCBLVCBS$W_RVNJ * 24; 3 
: 320 liz 7 CACHE LOCK (.10X_FILE_ID, LOCK_ID, 1); : 
: ae 1315 7 ALLOCATION_LOCK 7); ~ ; 
; 32 1316 ? DEQ LOCK (7LOCK_ID5; : 
; 32 131 7 CACRE_FLUSHED ="-1; 3 
: 324 1318 7 LEAVE GET_FILE_NUM; 3 
: 325 1319 7 END : 
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SE 
EXTEND_INDEX (); 
ND 


Move the EOF and zero the intervening blocks. Note that this version 
of the file system always sets the index file EOF to be physical end 
of file, because the index file is zeroed on extend. This code is 

present for compatibility with past a 


future file systems that may 
not zero the index file on extend. Se 


Lize activity on the index 


NOX; 
FCB CFCBSW_FIDI); 


HEADER = READ 
BBLOCK (HEADER 


IF HEADER CFH 
THEN HEADER CFH2$C_HIG 


CHECKSUM (.HEADER); 


FBLK] = .CURRENT 
ADER sVCBLVCBSL_ 


INVALIDATE (.HEADER); 
RELEASE SERIAL_LOCK (.CURR_LCKINDX); 


DX_HEADER (); 
FH2SW_RECATTRI, 


‘ FATSL_EFBLK] = ROT (.CURRENT_EOF*1, 16); 
FHOSW-RECATIR] 


FATSW-FFBYTE) = 0; 
(FH2$L_HIGHWATER) #4) /2 
~CURRENT_EOF + 1; 


. Go around the loop to try to allocate a file number again. 


LEAVE GET_FILE_NUM; 
END 


! We successfully filled the file ID cache from the bitmap. 
; the index file bitmap buffer. 


PB BEBE BBE EEE BE NNN NDNA A AAA AAA ADA AA AA AAPA AAA AMAP AAA AAAOOAAS 


Ww 


oo 


Quiklun—Oo0Oo~ 


WRITE_BLOCK (.BUFFER); 


: If the file ID cache had entries in it, all we have to do is check one 


ce eB ee ee me a eB ce ee ee ee ae ed ed ee ee ee ee ed ed ed 
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v04-001 732tn 198, 12:43:26 F11X.BUGSRCICREHDR.B32;1 . (2) 
t4 A PMSSGL_FIDHIT = -PMSS$GL_FIDHIT + 1; 
85 79 FILE argh yee = .FID ot gag FIDLISTJ; 
86 80 FID CACHELVCASW FIBCOUNT) = .FID CACHECVCASW_FIDCOUNT) = 1; 
87 81 CHSMOVE (.FID_CACHECVCASW_FIDCOURTI#4, 
88 ¢ FID_CACHELVCASL_FIDLISTJ+4, 
3 ? FID _CACHELVCASL_FIDLISTJ); 
91 85 NEW_FID = .FILE_NUMBER; 
23 38 NEW_FID_RVN = .CURRENT_RVN; ! record for cleanup 
Be Hy } Map the file header. If it fails to map, we have screwed up badly. 
96 90 3 
97 91 VBN = .FILE NUMBER + .VCBCVCBSB_IBMAPSIZE] + .¥CBCVCBS$W_CLUSTERJ*4; 
398 335 LBN = MAP_IBX (.VBN); 
inp 307 IF .LBN EGL =1 THEN BUG_CHECK (HDRNOTMAP, FATAL, ‘Allocated file header not mapped"); 
401 $2 FILE_IDCFIDSW_NUM] = .FILE_NUMBER<O,16>; 
40 96 FILE_IDCFIDSB_NMX) = .FILE NUMBER<16,8>; 
403 397 FILE-IDCFIDSB-RVNJ = .CURRENT_RVN; 
405 399 : If this is the creation of a new primary header, PRIM_LCKINDX will 
406 400 : be zero. In that case, serialize further processing on that header. 
407 401 ! If extension headers are being allocated, the primary lock index has 
pee re } already been established. 


IF _<PRIM_LCKINDX EQL 0 
BEGIN 


Release the allocation lock prior to serializing on this file id. 
This could be a valid header that another process is Frying to modify 
allocation on, and if so, we would deadlock if the allocation lock 
were not released now. 


ALLOCATION_UNLOCK (); 
PRIM_LCKINDX = SERIAL_FILE (.FILE_ID); 
wew CCKINDK = 1; 


' Read the header; then check the block read for resemblence to a file header. 


HEADER = READ_NEW_HEADER (.LBN); 

IF .HEADER NEQ 0 

THEN 
BEGIN 
FILE _IDCFID$W_SEQ) = .HEADERCFH2$W_FID SEQ); 
STATOS = CHECR_HEADER2 (.HEADER, .FILE71D); 

Make the final checks that the block is Scgopteble as a file header. We do 
e 


not use valid file headers. Also, we ski numbers with the low 16 bits 
all zero to avoid confusing the old FCS-11. Also skip file numbers in the 
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v04-001 -0ct-1984 12:43: F11X.BUGSRCICREHDR. B32;1 (2) 
; re 1635 : } reserved file number range to avoid total confusion if the volume is damaged. 
; 44 14 § 4 

3; 44 14 4 IF_ .FILE_IDCFIDSW_NUM) EQL 0 

3 4446 14 3 4 THEN 

: 445 14 4 WRITE_BLOCK (. HEADER) 

: 446 1440 4 LSE 

: 447 1441 4 IF NOT oFtarus 

; 448 | 5 AND NOT ( patt IDCFIDSB_NMX) E co, 6 

; 449 1445 5 -FILE_I fPrdsu NUM] LEQU .CURRENT_VCBCVCB$B_RESFILES]) 
; 450 1444 & THEN EXITLOOP: 

3 $2) 1445 D; 

3 § ¢ 1248 

; 45 144 ! if we got this far. i.e., did not exit the loop, we do not want to use 
> 454 1448 ! this file header for some foenee. ae going around another time, 

; 455 1449 ! release the serialization lock i . one in this routine, and then 
3 rt 1029 reacquire the allocation lock na ene her pass around the Loop. 

; 458 1626 

; 459 145 IF NEW _LCKINDX 

; 460 1454 THEN 

; 461 1455 4 BEGIN 

; 46 1456 4 IF .HEADER NEQ 0 

: 46 1457 4 THEN INVALIDATE (.HEA DER); 

> 464 1458 4 RELEASE SERIAL -LOCK (.PRIM_LCKINDX); 

: 465 1459 4 PRIM_LCKINDX = 

> 466 1460 4 ALLOCATION_ LOCK dD; 

: 467 1461 ; ENDS 

; 468 1296 

3 133 1ee7 END; ! end of file number allocation loop 
3 ris re Fs HEADER_LBN = .LBN; ! record LBN of new header 

3s 47 1467 IF ees Edt. t 8 305 

: 476 1468 - ( HEADER) < get} 

: 475 1469 THEN rit mitid) bg" 2 iti Sresinects. 16>; 

: 476 1470 rt hh - FILE _IDCF tm 

3; 477 1471 A att bse LENGTH = see ID, bth Fas. FIDJ); 

; 478 1608 HEADER FH2$B_FID_RVN) = 0; 

; 479 147 

; 480 1474 MARK _DIRTY (. HEADER); 

3; «481 1475 -HEABER 

; 48 1678 

; 48 1477 1 END; ! end of routine CREATE_HEADER 
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DENT \v04-001\ 
XTRN CLUSGL_CLUB, PMSSGL_FIDHIT 
XTRN PMSSGL-FIDMISS, EXESGQ_SYSTIME 
XTRN ALLOCATION LOCK 
XTRN ALLOCATION" UNLOCK 
XTRN SERIAL FILE, RELEASE_SERIAL_LOCK 
XTRN DEQ LOCK, READ BLOCK 

XTRN WRITE BLOCK, DELETE_FID 

XTRN RELEASE _LOCKBASIS 
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MA 
.EXTRN BUGS_ADRNOTMAP 
-PSECT S$CODE$,NOWRT,2 


OBFC 00000 ~ENTRY CREATE HEADER. Save R2,R3,R4,R5,R6,R7,RB,- 


1149 


SE 2c ¢2 000 SuBL2 #4, SP : : 

20 AE D4 0005 CLRL NEW.LCKIND + 1185 ; 

ce ee a ea ne 
56 HF 89 D 0013 MOVL  @88(VCB), FID_CACHE > 1254 ; 

I AE D4 00015 CLRL ACHE _FLUSHED + 1255 ; 

02 A 83 0018 1$ ist (F ID" CACHE) > 1265 : 

0153 31 0001D BRW i F ; 

000000906 00 26 0020 2 INCL § PMSSGL_FIDMISS : : 

18 A AQ 9A 00026 MOVZBL sg¢vcey, VBN : 3 
18 AE 38 «Ad 0 90 ED 00C 8 3$ CMPZ7V. #0, #8, 56(VCB), VBN : : 
08 Db 900 BUEML 8 

01 dD 000 PUSHL # : : 

50 20 AE pO 0038 MOVL —-*VBN, RO : ; 

0 8940 9F 0003C PUSHAB @48(VCB)CROJ : : 

00006 CF 03 FB 00040 CALLS #3, READ BLOCK : : 
Oc AE 0 po 00045 MOVL UFFER : : 
OC BE 0200 ««8F FF BF 38 00049 SkPC «#255, #512, @BUFFER ; ; 
oF Oe bos CIAL ORT 

6E 51 D0 boss 4$ MOVL R1, ADDRESS : : 

6E D5 00058 TSTL ADDRESS : : 

12 OO05A BNEG = 5$ : : 

et ns : : 

18 AE DD 00061 5$ PUSHL  VBN : : 

10 AE DD 00064 PUSHL BUFFER : ; 

o000v CF 33 PB Oboes CALLS #8. FILL. FID. CACHE ; : 
02 i 3H 6$: ist g(F1D_CATHE)” : ; 

OOF 007 BRW : : 

58 69 D0 7% 7$: MOVL  (VCB), IDX_FCB : : 

5 3C ag D 79 MOVL  60(IDX_FCBY, CURRENT EOF : ; 

38 AB 3 D1 zp CHL c RRENT_EOF, 56(1DX_FCB) : F 
ft BREE | RR ites. ; : 
000000006 09 i Ist USGL’ CLUB : ; 

45 10 (AE OE : BLBS  CACHE_FLUSHED, 8$ : ; 

7 D4 CLRL = = (SP) : ; 

00006 cr 0 FB 00099 CALLS #1, DELETE_FID : : 
E 1 CE 0009E MNEGL #1. -(SP) : F 
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“Jan-1985 17:44:55 AX-11 Bliss-32 V4.0-742 Page 11 CRE 
ts i behi3e YET IX.BUGSRCICREMDR BS241 9 02) v0+ 
99006 CF 1 FB OO0A1 CALLS #1, RELEASE_LOCKBASIS : : 
0G CF 0 FB Ab CALLS #0, ALLOCATION_UNLOCK : 1311 ; 
98 AA AB VL -164 (BASE), RO + 1312 ; 
a Se a : : 
50 01 8 B BISB2 af IDX- FILE_ID : ; 
24 AE D4 OOOBA CLRL LOCK_ID + 1313 ; 
0 pp BD PUSHL #1 > 1314 : 
28 «AE OF OO0BF SHAB LOCK_ID : ; 
0006 CF 6 PB 000ck CALLS #8.“ CACRE Lock : 
000G CF 0 FB 000C9 CALLS #0, ALLOCATION_LOCK : 1315 ; 
24 AF DD cE FUSHL Lock 1D : 1316 ; 
0000G CF FB D CALLS #1, BEQ_LOCK 3 ; 
1c AE i cr 06 RINE GL #1. CACRE_FLUSHED ; 7 : 
00006 CF 0 fe of gs: CALLS #0, EXTEND_INDEX + 1321 ; 
FF34 3 E1 9$: BRW : 1 ; 
046 AE 16 AA ty £4 10$: § MOVL (BASE), TEMP : 1 F 
24 AB SF OO0E9 PUSHAB 36(IDX FCB) + 1335 : 
00006 CF : 01 Fe OOEC CALLS #1, SERIAL_FILE ~ : 
1 A 3 i 5 FOCURRENT EOF) : ; 
0000v CF 9¢ FB OO0F7 CALLS #2, MAP_IBX : 3 
10. AE DO OOOFC MOVL ROL ; 
FF78 CA DD 00100 PUSHL -156(BASE) + 1338 
2¢ AE OOD 9104 PUSHL COUNT : 
18 AE DD 00107 PUSHL LN : 
00006 CF 0 FB O10A CALLS #3, ERASE_BLOCKS ; 
57 28 AE CO 0010F ADDL2 ¢ CURRENT EOF + 1335 
0000v CF 90 FB O11 CALLS #0, READ_IDX_HEADER : 1341 
58 g DO 0011 MOVL RO. HEADER ; 
50 01 A? 9E 00118 MOVAB 1(R7), R : 1342 
56 10 9C OO11F ROTL #16, RO, 28(HEADER) ; 
20 A BA 0124 CLRW  32(HEADER) : 1343 
28 68 1 91 i CAPE (H ADER), #40 : 1344 
U PY 
4c AB 01 A? 9E O018C MOVAB 1(R7), 76(HEADER) : 1345 
58 DD 00131 11$:  PUSHL HEADER : 1347 
Mitts ef a fe ti carte 50° ORITE HEAD R : 1348 
3c AB ° 8 1 MOVL CURRENT EOF, 800 1DX_FCB) : 1368 
2c =A9 «DD 00141 PUSHL 44(VCB) : 1350 
DD 00144 PUSHL HEADER ; 
00006 CF FB 00146 CALLS #2, RESET_LBN : 
DD 00148 PUSHL HEADER > 1351 
00006 CF gi FB D040 CALLS #1, WRITE_BLOCK ; 
8 DD 001 PUSHL HEADER > 1352 
atte 146 RA bp 90189 susie «= Soteastne 1354 
00006 CF 01 FB 0015¢ CALLS #1, RELEASE SERIAL_LOCK : 
14 AA 04 AE 06 161 move fe" S<BASE) : 133 
0c AF DD 00169 12$: PUSHL BUFFER : 1369 
00006 CF FB f CALLS #1, WRITE_BLOCK ¥ 
000000006 § D6 00173 138: INCL PMSSGL_FIDHIT : 1933 
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» @FILE_ID 


UGS HORNOTHAP! 4> 
* 0 
=MUPBERS2, 5<RO) 


= | HHH 


Om ee 
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$ 

» ALLOCATION_UNLOCK 
FILE 10 
“i, SERIAL FILE 
RO, 24(BASE) 
a. NEW_LCKINDX 


L 
#1, READ_NEW_HEADER 
Rs HEADER 


FILE_ID, RO 
10(HEADER), 2(RO) 
FILE ID 

HEADER 

#2, CHECK -HEADER2 
FILE_ID, R2 

(Ro) 


17 
meee 
#1, WRITE BLOCK 


TATUS, 18% 
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EADER 
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; Routine Size: 


08 As 


663 bytes, 


0000G CF 
0000G CF 
0000G CF 

BO AA 


5 
02 A9 enere 


06 BC 


00006 gf 


Routine Base: 


[@°o—-C0-—-"9°OWwr"O 70" 


Sao hws SOOO wD +oow 


SOLESERSRRESRRESESES 


SCODES + 0000 


2S = => 


22S SS 2225 


+ 


CSCOOOCOOOOOOOCS 


2s 


ee 
“Oct-1 


5 17: 
4 le: 


oe UFTik:euGsheacReND 


altel tg ityALioare 
1, RELEASE_SERIAL_LOCK 
Hr nee 
, ALLOCATION_LOCK 
-80 (BASE) 
Tat us 


Hf HEADER) 
FILE_ID, R 
EXESCO SySoimes2, 2(RO) 
FILE_IB, RO 
a @FILE_ID, 8(HEADER) 
12 (HEADERS 


ER 
#1, MARK_DIRTY 
HEADER, RO 
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CREHOR =Jan-1985 17:46:55 AX-11 Bliss-32 V4.0-742 Pp 4 CRE 
vosebo1 perm 8be 1552338 | GAT Bk iaes ze Mhale $2, age of} voe 
; ¢ 5 1078 ! ROUTINE FILL_FID_CACHE (VCB, BUFFER, VBN) : L_NORM NOVALUE = : 
3 ia 2 
i 4 148¢ 1 | FUNCTIONAL DESCRIPTION: : 
: 491 14 1/ This routine refills the cache from the supplied bitmap buffer. : 
$ 138 1485 1! It will not fill the cache with file ID's that represent : 
; 49 14 1! headers past the current index file EOF. 3 
ee ee 7 
: 496 1289 1 | CALLING SEQUENCE: : 
: 697 14690 1 | FILLLFID-CACHE (ARG1, ARG2, ARG3) : 
: 499 1498 1 | INPUT PARAMETERS: ; 
; $00 1495 1! ARG]: address of volume VCB 3 
; $01 1494 1! ar! address of bitmap buffer 3 
: 4 re : } ARGS: relative block number in bitmap : 
: 504 1299 1 | IMPLICIT INPUTS: : 
; 505 1498 1 | NONE : 
; 209 1500 1 | OUTPUT PARAMETERS: F 
fsa : 
: 510 1208 1 | IMPLICIT OUTPUTS: ‘ 
Pio ole i 

: a1 1506 1 ' ROUTINE VALUE: 

: 3i8 1308 1 i —_ 

: 216 1509 1 | SIDE EFFECTS: 

3; $1 1510 1! file 1D cache modified 

; 518 1511 1! 

; 519 121g 1 !=- 

3 320 1513 1 

; 521 1514 BESIN 

BUN baw 

; 524 1819 vcB : REF BBLOCK, ! Local copy of VCB address 

; 525 1518 BUFFER : REF BITVECTOR; ! address of index file bitmap buffer 

BE WEB vow 

; ; 8 1 1 CACHE REF BBLOCK, ! pointer to cache block 

: 9 1 § FID CACHE REF BBLOCK ' pointer to file ID cache 

: 15 ADDRESS REF BITVECTOR, ! address of byte in buffer 

: 1 1524 FREE COUNT, ' count of cache entries to fill 

: 4 1525 BITPOS ' bit positon of free bit within byte 

: 33 15 é BITPOS2, i bit positon of first used bit 

3; 534 15 FILE NUMBER, ' file number found 

3 534 12 3 1DX_VBN; ' current block in index bitmap 

: 53 1530 2 BIND_COMMON; 

; 3 1531 

3 9 15 § 

: 540 15 

. 541 1534 


! If the cache is not currently marked valid, attempt to take out the 
! cache lock if we are in a cluster and may do so. 


? 
CREHDR b-1 #1985 17:44:55 VAX=11 Bliss-32 v 
yone001 peri obe ieki3a || YANG Bt ise522.¥ 


rk 5 $ 
4 
3 $ CACHE = .VCBCVCBSL_CACHE); 

45 8 FID CACHE = : FACHECVCASL _F 1DCACHE]; 
278 IF ROT .CACHELVCA V_FIDC_VALID 
58 r¢ THEN INIT_FID_CACHE™ (. CACHE); 

49 4 ! FILL the cache from the supplied bitmap buffer. Find each byte taini 
229 “8 } a free bit, and then find e free bit. “ trek pinnate 
5 é 45 : 

é “g ADDRESS = .BUFFER; 

ae 3 FREE_COUNT = .FID_CACHECVCASW_FIDSIZE]/2 - «FID _CACHELVCASW_FIDCOUNT) + 1; 
$5 S68 § wniug 1 to 
538 22) Hen teste (ADDRESS = CHSFIND_NOT_CH (.BUFFER+512-.ADDRESS, .ADDRESS, 255)) 
26 338 FFC cine ( ); ZREF (8), . ADDRESS, BITPOS); 

20) 32¢ FILE_NUMBER = .VBN®4096 + ( ADDRESS=. BUFFER) #8 + .BITPOS + 1; 
508 228 Check fille number against index file EOF and the maximum file Limit. 
5 558 3 
5 559 IF .FILE NUMBER + .VCBCVCBSB_IBMAPSIZE) + .VCBCVCBSW_CLUSTER]*4 
5 560 GTRU .BBLOCK C.VCBCVCBSL_FCBFLJ, FCSSL_EFBLKI 
OR .FILE_NUMBER GTRU .VCBCVCBSL_MAXfILES) 
THEN EXITLOOP; 


! Enter the file number in the cache and mark it busy in the bitmap. 
Exit the loop if the cache is now full enough. 


ADDRESSC .BITPOS) = 1; 

FID_CACHELVCASW F 1DCOuNT} = .FID_CACHELVCASW_FIDCOUNT) + 1; 

VECTOR CFID_CACRE VEASL FIDLISTI; .FID_CACHECVCASW_FIDCOUNTJ-12 = .FILE_NUMBER; 
OUN = = 3 


SSSaVSO ASEAN SSRISAF 


ek a a a a a dd od 
WVewn— 


PPPAAAAAAMMAMAAMIMAMAAIVIIT 


PUP DPVDPVP PPP ASSIA AAA AAA AAI 


8 

9 

0 

1 -FREE_ 

§ IF .FREE COUNT LEQ 

OR NOT .CACHECVCASV_FIDC_VALID} 

4 THEN EXITLOOP; 
8s 5 END; ! end of bitmap processing loop 

$ IDX_VBN = .VBN; ! update current VBN of index file bitmap 

5 8 gif ~FILE_NUMBER<O,12> EQL 
THEN IDX"VBN = .I0X_VBN + 1; 

Hf VCBCVCB$8_IBMAPVBN)"= .1DX_VBN; 

89 2 END; ! end of routine FILL_FID_CACHE 


O1FC 00000 FILL_FID_CACHE: 
$0 wee , aon Seve . oR3,R4,R5,R6,R7,R8 : 1378 
54 % AO 8 $6008 MOVL sBcRO>., CACHE ; 


see 


58 


; Routine Size: 


50 
67 


Wo 
ON 


55 


00 


172 bytes, 


0000v CF 
7? 

8 

08 AC 
3 

57 

« 
is 

3 

; 

50 

28 

: 

50 

3c = AO 
44 SOA 
67 

50 

20 A240 
95 

51 

OFFF =F 
n 8 


Routine Base: 


o $F 
4 0D 

1 fe 

08 ‘ BP 

02. A ge 
C 

ia 
0200 ¢0 : 

FF F i 
i 

1 

Ht 
08 AC ¢ 
6041 7E 

01 A840 9 
4 AC 3 

8 Al 9A 
50 ¢1 

xc COA OC 
ne 
1: 
1€ 1 

56D 

18 1 
if 

BRE 

29 Dd 

53D 

06 1 

0B AG E 

Tg ec 4 
if 

« f 
51 


SCODES + 0297 


FSSSNASRAISAGNS => Om 
+: 2SOSs 3¢ 
= 


AX=11_ Bliss=32_v4.0-74 
UPTTX.BUGSRCICREMDR-BS3s1 


FID CACHE 
. 8 


FID CACHE 
ADDRESS 
HE), R 


HE) 
AC 
E 
IN 
R 
R 
D_CACHE), RO 

E COUNT 

RESS, BUFFER, RO 
RO). R 

, RO, (ADDRESS) 


#8, (ADDRESS), BITPOS 


v 
R, ADDRESS, R1 

rij RO 

POS CROJ, FILE_NUMBER 


owmwc-- 


POS, (ADDRESS), 4$ 
fA HE) 


RFMD WNBWAD- 


ee 
NUMBER, #4095 


vCB, RO 
IDX_VBN, 58(RO) 


1551 


eef 


CREHDR 
v04-001 


? 
=jan-1985 17:44:55  YAN-11 Bliss-32 vé.0-762 Page 17 
b-yan-1965 15:ehi38 | HATTA Bt Lse5 28 Mba tS? wr a 


H 4 } ; } GLOBAL ROUTINE INIT_FID_CACHE (CACHE) : L_NORM NOVALUE = 

3 9 1585 1 !¢4 

3 94 1 1! 

; a4 12 i : FUNCTIONAL DESCRIPTION: 

$ 299 1589 1! This routine refills the cache from the supplied bitmap buffer. 
3 a35 1890 1! It will mot fill the cache with file ID's that represent 
; 599 1891 1! headers past the current index file EOF. 

: 600 1236 1! 

: 601 1895 1! 

; 60 1238 1 ! CALLING SEQUENCE: 

; at 133? : INIT_FID_CACHE (CACHE) 

; 605 1899 1 ! INPUT PARAMETERS: 

; ope 1998 1! CACHE: pointer to main cache block 

: 60 1599 1! 

; 608 1600 1 ! IMPLICIT INPUTS: 

; 009 1601 1! NONE 

: 610 1606 1! 

: 611 1603 1 ! OUTPUT PARAMETERS: 

3 oi¢ 1606 1! NONE 

3 61 1605 1! 

: 614 1606 1 ! IMPLICIT OUTPUTS: 

s 615 1607 1! NONE 

: 616 1608 1! 

; 617 1609 1 ! ROUTINE VALUE: 

: 618 1610 1! NONE 

; 619 1611 1! 

3 630 1oi¢ 1! SIDE EFFECTS: , 

s 6Oe) 161 1! cache marked valid, lock taken out 

: oc¢ 1614 1! 

: 62 1615 1 !-= 

; 624 1616 1 

; 625 1617 BEGIN 

; 626 1618 

: 627 1619 ; 

; 628 1620 CACHE : REF BBLOCK; ! pointer to cache block 
F 66° 1621 

; 6 16 § LOCAL 

; 631 16 FID CACHE : REF BBLOCK, ! pointer to file ID cache 
3 Ors 16 : INDEX_FID; ' lock basis for index file 
3 034 16 § BIND _COMMON; 

:..635 16 

;001 !CpSs0018 1628 EXTERNAL 

3002 'CDS0018 1629 CLUSGL_CLUB : ADDRESSING_MODE (GENERAL): 

3003 'cosooi8 16 

3 636 1631 EXTERNAL ROUTINE : 

; 63 16 § CACHE _LOCK : L NORM; ! acquire special cache lock 
i. i 

; 640 1635 ! If the cache is not currently marked valid, attempt to take out the 
; ot Hy , cache lock if we are in a cluster and may do so. 

; 66 1638 ¢ 

644 1639 3 FID.CACHE = .CACHECVCASL_FIDCACHE); 
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; 645 1640 IF NOT .BBLOCK [CURRENT YCBCUCBSL DEVCHAR], DEVS$V_DMT) 

; one 1641 AND NOT .CURREN ves vVCBSv_WRITE TF 

3 66 1668 AND .FID_CACHECVCASW_FIDSIZE) GTRU 

; 648 164 THEN 

3 649 1644 BEGIN 

>. 650 1645 IF .BBLOCK CCURRENT UCBCUCBSL _DEVCHARZI, DEVSV_CLU) 

3001 !CDSO018 1646 AND .CLUSGL_CLUB NEQ 

; 651 1647 THEN 

; 63¢ 1648 4 BEGIN 

; 65 1649 4 INDEX _FID = FIDSC_INDEXF OR .CURRENT_VCBCVCB$W_RVN) * 36 
> 654 1650 4 IF CACHE LOCK (,IRDEX_FID, FID CACHECVCASL_FIDOLKIDJ, 0) 
; 655 1651 4 .« THEN CACRECVCASV_FIDC"VALID) ="1; 

; 656 1636 4 END 

; 657 165 ; ELSE 

; 658 1654 CACHECVCASV_FIDC_VALID) = 1; 

> 659 1655 2 END; 

; 660 1656 2 ; 

; 661 1657 1 END; ! end of routine INIT_FID_CACHE 


000¢ 00000 .ENTRY INIT_FID CACHE, Save R2,R3 
52 AC DO 00002 mOVL «OC : 
5 62 DO 00006 MOVL (R2), FID CACHE 
51 94 AA D0 00009 MOVL -108(BASEY, R1 
64 3a 05 €0 00000 3BS #5, 58(R1). 2$ 
50 98 AA DO 00012 MOVL -104(BASE).; RO 
3¢ 0B ao £8 90016 BLBS  11(RO), 
01 $ B1 OOO1A CMPW = (FID_CACHE), #1 
7 1B 0001D BLEQU 2$ 
2F 3c = Als OOOTF BLBC ©: 60(R1),,_ 18 
000000006 00 BS 00023 TSTL  CLUSGL_CLUB 
27. 13 00029 BEQL~—édTSS$ 
50 98 AA 00 000 MOVL  $ -1046(BASE), RO 
50 OE Aad 3C 0002F MOVZWL 14(RO), RO 
50 50 18 78 000 3 ASHL #24, RO 
50 Q1 88 090 BIS82 #1, INDEX_FID 
D4 0003A CLRL = (§P) 
06 Ad 9F 0003C S 4(FID_CACHE) 
30 DD 0003F PUSHL INDEX“FI 
0000G CF 9 FB 0041 CALLS #3, CACHE_LOex 
9p 0 € 46 BLBC=—E—saRO.,. 28 
0 04 Ac 0 4 VL CACHE R0 
0B AO 01 0040 BISB2 #1, 11(RO) 
4 00051 RET 
0B A2 01 88 00052 1$: BISB2 #1, 11(R2) 
4 00056 2$: RET 
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ROUTINE READ_NEW_HEADER (LBN) : L_NORM = 
i++ 


FUNCTIONAL DESCRIPTION: 
It uses a local condition handler to fix up errors. 
CALLING SEQUENCE: 


READ_NEW_HEADER (ARG1) 


INPUT PARAMETERS: 
ARG1: LBN of block to read 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
address of buffer containing block or 0 if bad 


SIDE EFFECTS: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' OUTPUT PARAMETERS: 
} NONE 

i 

i 

i 

i 

i 

i 

i 

block read and/or written 
le 


BEGIN 
LOCAL \ 
HEADER : REF BBLOCK; ' address of block read 
BASE _REGISTER; 
EXTERNAL ROUTINE 
READ BLOcK : LLNORM, ' read a block 
WRITE BLOCK : LINORM, ' write a block 
IN AT : ORM, } invalidate a buffer 


VALIDATE : LIN 
CREATE_BLOCK : LINORM; 


' 
i 
: of the latter fails, we return failure. 


ENABLE HANDLER; 

HEADER = READ_BLOCK (.LBN, 1, HEADER_TYPE); 
If HEADER EQL 0 

THEN 


PIPIPIPIHPIMIAPIPIPIAININIAIPINIJPINIAINIAIAIIAIINI IAA a a si i dd ad od od od 


This routine reads the block about to be used for a new file header. 


create a new block buffer 


Under control of the condition handler, we read the block. If the re 
fails, we attempt to rewrite the block and then read it again. If either 


5 
4 


JE.BLOCK (.LBN, 1, HEADER TYPE); 
2>72 1; 


BLOCK (.LBN, 1, HEADER_TYPE); 


001 
4 
5 
; 
8 
9 


RETURN .HEADER; 
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! end of routine READ_NEW_HEADER 


00000 READ_NEW_HEADER: 
WORD 
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Routine Base: S$CODES + O39A 


; Routine Size: 


#3, READ BLOCK 

HEADER 
#i, -(SP) 

» CREATE_BLOCK 

RO, HEADER 
#1, (HEADER) 
HEADER 
#1, WRITE_BLOCK 
HEADER 
#1. INVALIDATE 
», =(SP) 
ri READ BLOCK 
0, HEADER 
HEADER, RO 
Save nothing 
=(SP) 


SP 
4(AP), =(SP) 
#3, HANDLER 
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“eR ¢ 17 § 1 ROUTINE HANDLER (SIGNAL, MECHANISM) = ; 
a 17 1 : 
> 2 1728 1 !4¢ 3 
3 735 1729 1! 3 
: $ if 9 : FUNCTIONAL DESCRIPTION: : 
s 738 17 § 7 § This routine is the condition handler for the initial header read. $ 
; 739 17 1} On surface errors, it unwinds and causes a return of 0 to the caller ; 
; 740 1734 1! of the 1/0 routine to indicate error. Hard drive errors cause the ; 
s 761 1735 1! usual error exit. 3 
; 74 1736 1! 3 
; 74 1737 1 ! CALLING SEQUENCE: 3 
3s 764 1738 1! HANDLER (ARG1, ARG2) : 
3: 745 1739 1! 3 
; 746 1740 1 =! INPUT PARAMETERS: 3 
> 747 1741 +1! ARG1: address of signal array : 
: 748 ee 7% ARG2: address of mechanism array 3 
3; 749 1745 1! 3 
; 750 17464 1°! IMPLICIT INPUTS: 3 
s 731 1745 1! NONE 3 
$ Pg io | 1! s 
.. a 174 1 ! OUTPUT PARAMETERS: : 
3; 7546 1748 1! NONE 3 
s 755 1749 1! 3 
3s 1750 1 ! IMPLICIT OUTPUTS: ; 
s 757 tel ee NONE 3 
; 758 1738 &. 3 
: 759 175 1 ! ROUTINE VALUE: 3 
; 760 1754 1! SS$_RESIGNAL or none if unwind : 
3; 761 1755 1! $ 
; 76 1756 1 ! SIDE EFFECTS: 3 
: 7 1757 1! NONE 3 
3 7646 1758 1! 3 
; 765 1759 1 !<- ; 
: 766 1760 1 3 
: 767 1761 1 é 
: 768 1766 § BEGIN 3 
: 769 176 3 
: 770 1764 2 MAP F 
3 (771 1765 2 SIGNAL : REF BBLOCK, ! signal arg array $ 
s 77 1766 MECHANISM : REF BBLOCK; ! mechanism arg array : 
3; 77 1767 3 
3: 776 1768 é 
s 775 1799 ! If the condition is change mode to user (error exit) and the status is 3 
: 776 1770 !' read error, zero the return RO and unwind to the the establisher. On é 
s 777 1771 ' most write errors, zero the return RO and unwind to the caller. 3 
; 778 Ieee ! Otherwise, just resignal the condition. 3 
; 779 177 ! 3 
; 780 1774 3 
3; 781 1775 IF .SIGNALCCHFSL_SIG_NAME] EQL SS$_CMODUSER 3 
- Fi ; 1776 THEN ; 
a. 177 BEGIN $ 
: g : 1778 ME CHANISMCCHFSL_MCH_SAVRO) = 0; : 
; g 1781 . SURF ERE SORES (. SIGNALCCHFSL_SIG_ARG1]) : 
: at 1782 4 SUNWIND (DEPADR = MECHANISMCCHFSL_MCH_DEPTH)) ; 
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3 736 1783 END; 
; 9 1 5 2 RETURN SS$_RESIGNAL; ! status is irrelevant if unwinding 
: 79 17 END; ' end of routine HANDLER 
.EXTRN SYSSUNWIND 
00000 HANDLER: .WORD seve oy 3: 17 

0 04 Ar D 9000¢ MOV. S1GNA RO : 17 
00000424 aF AS 01 90006 cnet gO) * #1060 : 

50 8 ac D MOVL CHANISM, RO F 

C AO Dé CLRL —- 12 (RO) ; 

0 AC D MOVL IGNAL, : 
000001F4 &F 8 Ad cnet BRO), 500 : 
o00000Sc = 08 Ad p cAPL (RO), #92 ; 
0000008c st 08 A0 I CRP (RO), #188 F 
00002144 =F 08 A0 oi cnPL RO), #8516 : 

7 ac i of ret hots sa recuien, oer ; 
000000886 FB A ALLS a YSSUNWIND : 
$8 0918 a 3¢ d51 28 movZuL § 3 R F 


; Routine Size: 87 bytes, Routine Base: SCODES + 03F2 
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GLOBAL ROUTINE READ_IDX_HEADER : L_NORM = 


tee 
' 


FUNCTIONAL DESCRIPTION: 


This routine reads the volume'’s index file header, using the 
alternate if it seems appropriate. 


CALLING SEQUENCE: 
READ_IDX_HEADER () 


i 

i 

i 

i 

] 

i INPUT PARAMETERS: 

NONE 

i IMPLICIT INPUTS: 

CURRENT _VCB: VCB of volume 

i QUTPUT PARAMETERS: 

NONE 

i IMPLICIT OUTPUTS: 

} NONE 

' ROUTINE VALUE: 

address of file header read 

i SIDE EFFECTS: 

} NONE 

ine 

BEGIN 

LOCAL 
HEADER : REF BBLOCK, ! address of header read 
FCB : REF BBLOCK; ! address of index file FCB 

BIND_ COMMON; 

EXTERNAL ROUTINE 
FILE_SIZE : L_NORM, ! compute file header file size 
READ_HEADER : LLNORM, ' read file header 
READ BLOCK : LUNORM, ! read a disk block 
CHECR_HEADER2 =: L_NORM, ! validate file header 
RESET_LBN : L_NORM, ! reassign LBN of buffer 
INVALIDATE : LINORM; ! invalidate buffer 


! Read the index file header. Check the file size against the 
! file size in the FCB. A mismatch indicates a failure in writing the 
: header the last time; if this occurs, try the alternate header instead. 


SAVE_STATUS = .USER_STATUS; 


Sm 
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-0¢t-19 F11X.BUGSRCICREHD aa. 1 
FCB = .CURRENT yCBLVCBSL_ FCBFLI; 
HEA DER = READ READER (0,~.FCB); 
Ff FILE_SIZE T.HEADER) LSSU .FCBCFCBSL_FILESIZE) 


-HEADER) ; 
DER = READ BLOCK (.CURRENT_VCBCVCBSL_IXHDR2LBNJ, 1, HEADER_TYPE); 
wor CHECK READER R2 { (,HEADER; UPLIT WORD (FIDSC_INDEXF, FIDSC_INDEXF, 0)) 


-HEADER) ; 


( 
); 
HEADER) LSSU .FCBCFCBSL_FILESIZE) 
SS$_BADFILEHDR); 
HEADER: 
DER, .FCBCFCBSL_HDLBN)); 
USER_STATUS = .SAVE_STATUS; 

; HEADER 


! end of routine READ_IDX_HEADER 


00449 -BLKB 1 
0000 0001 0001 0044A P.AAA: .WORD 1, 1, 0 


sEXTRN FILE_SIZE, READ_HEADER 


00000 .ENTRY READ_IDX_HEADER, Save R2,R3 
CO AA 80 AA 0000 MOVL -128TBASE) “64 (ea SE) 
52 9 BA 909 MOVL  @-104(BASES, 
2 0B PUSHL FCB 
? 10000 CLRL. = (SP) 
0000G CF Q OOF CALLS 2, READ_HEADER 
53 00014 MOVL RO, HEADER 
5 00017 PUSHL HE DER 
00906 CF 1 9 CALLS #1, FILE_SIZE 
8 A2 9 : CMPL = RO. -S6(F EB) 
BGEGU 
04 AA 4 CLRL © 4(BASE) 
3 7 PUSHL HEADER 
00006 cr 1 CALLS #1, INVALIDATE 
: 1 f mova - 
5 98 AA MOVL 7164 (BASED. RO 
2c OA PUSHL 44 ( 
00006 cf Q CALLS READ BLOCK 
3 MOVL HEADER 
B7 sOAF PUSHAB hy 
PUSHL EAD 
00006 CF CALLS Hee HEADER2 
A A BLBS 
D PUSHL HF ADE 
00006 CF F CALLS #1, INVALIDATE 
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GLOBAL ROUTINE MAP_IDX (VBN, COUNT) :'L_NORM = 
he 
FUNCTIONAL DESCRIPTION: 
This routine maps a virtual block in the index file. 


CALLING SEQUENCE: 
; MAP_IDX (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: VBN of block to map 


IMPLICIT INPUTS: 
NONE 


COUNT: (optional) address to store count of contiguous blocks 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

LBN of blocks mapped or -1 if failure 


o) 

' 

! OUTPUT PARAMETERS: 
i SIDE EFFECTS: 

; NONE 

' 


BEGIN 

EXTERNAL ROUTINE 
MAP _ : L_NORM, ! map VBN and turn window if necessary 
MAP WINDOW : L_NORM, : os VBN with current window 
RELEASE _SERIAL_LOCK™: L_NORM, ! release sync lock on file 
SERIAL_FILE : L_NORA; ! get sync lock on file 

LOCAL 
INCOMPLETE_FLAG, ! Saved state of CLF_INCOMPLETE 
IDX_FCB : REF BBLOCK, ! address of index file FCB 
LBN ! resulting LBN from map 
UNMAPPED , i received count of unmapped blocks 
TEMP; ! dummy to store resulting UCB 

BIND_ COMMON; 


: wy to map with the existing window first. This can be done without 

} taking out the sync lock on the index file. 

IDX_FCB = .CURRENT_VCB CVCBSL_FCBFLI; 

IF es s AP _winbow (.VBN, .IDX_FCB CFCBSL_WLFLJ, 1000, UNMAPPED, TEMP)) 
THEN 


22 
Seeeereeerecese Ls 


DONA VLSWN "CO OBNOUS WO” 
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Se Se Se Se Se Ge Se Se Oe Ge Se Se Se Se Oe Se Stee Ge Se Se Se Se Se ee 


DODOODO0DO000NO 
DPADAAAAAIIN 
HOWONAULS WN OOM 


fosdnct9Hs 17:44:55 yarett Bl isy=s 4.00742. 


-IDX_FCB CFCBSL_WLFLJ, 1000, UNMAPPED); 
ELEANUP. pC Neereihe} _ INCOMPLETE = , INCOMPLETE FLAG; ! Restore saved state 


IF . TEMP NEQ .CURR_LCKINDX 
a 


KINDX; 
re pf cose Hite 
si AG = 7: P_FLAGS tur INCOMPLETE); ! Save current state 
1px FCB rat v rstaed 


Hua ttc SERI TAL. i commence 
CURR_LCRIND 

END; 
Return the block count if asked for. 


c ae peat 1$bee- 2 
N .COUNT - UNMAPPED ; 


END; ! of routine MAP_IDX 


.EXTRN MAP_VBN, MAP_WINDOW 
-ENTRY MAP_IDX, Save R2,R3,R4 
SUB #8,~SP 


5E L2 
5 MOVL  @-{04(BASE), IDX_FCB 
PUSHL SP 
SHAB UNMAPPE 
7E MOVZeL #1000, =(SP) 
PUSHL 16 ( IDX_FCB) 
x PUSHL 
00006 ¢F i CALLS #3, MAP_WINDOW 
4 10 MOVL 
FFFFFFFF © BF 10 CMPL a? 
00 }! BNEQ 
6E 00 MOVL Poe TEMP 
000 PUSHAB  $6C IDK, FCB) 
00006 CF 06 CALLS SERIAL 
01 0 EXToy #10, 81 sense INCOMPLETE _FLAG 
23° A 00 BISBe #1 35 (10x 
yi PUSHAB 
7E 00¢ MOVZUL #1000, O sp) 
06 PUSHL 16 (IDK_FCB) 
00 PUSHL VBN 
00006 CF 06 CALLS #4, MAP_VBN 
4 if ROVL 
01 A if INSV INconP FTE FLAG. #10, #1, (BASE) 
16 AA MPL (BASE) 


++ 
Oana 
mM 
o 
a 


PUSHL whe 


ee 


: Elapsed Time: 1: 1.3 
3; Lines/CPU Min: 1791 

3 ema Ne ge 54177 

; genety © Used: 337 pages 
; Compilation Complete 
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00006 CF 01 F CALLS BT ASE _SERIAL_LOCK : 
14 AA bE MOVL Tee ASE) : 1939 
i eae 
08 BC 000003E8 gf 04 AE C3 1 SUBL UNMAPPED, #1000, aCOUNT 3 1948 
0 54 p 9078 2$ MOVL LBN, R 3; 1951 
4 QOU7E RET 3 
; Routine Size: 127 bytes, Routine Base: S$CODES + 0400 
; 960 133¢ i 
; 961 1955 1 END 
; 962 1954 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 1359 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: cooecoce Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA18:CSYSLIBILIB.L32;1 18619 67 0 1000 00:02.0 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CREHDR/OBJ=OBJ$:CREHDR MSRC$: CREHDR/UPDATE=(BUGS$: CREHDR) 
Size: 1352 1°88, + 7 data bytes 
; Run Time: : 


1443 VaX/VNS V4.1 SRC_LST MCRE UPD 


